home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaw.d64 / defcon 2 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  19KB  |  468 lines
  1. 0 REM"               DEFCON II
  2. 10 [143]"           INSPIRED BY 'DEFCON'
  3. 11 REM"       MANY THANKS TO 'BORING BOB'!
  4. 12 [143]"
  5. 14 REM"       FREE USE ONLY! *NOT FOR SALE*
  6. 15 [143]"
  7. 19 REM"    THIS PROGRAM WAS UPLOADED TO THE
  8. 20 [143]"         QUANTUMLINK SYSTEM ON
  9. 21 REM"             26 AUGUST 1987.
  10. 22 [143]"
  11. 23 REM"             WRITTEN BY:
  12. 24 [143]"             S. M. STANFIELD
  13. 25 REM"             805 1ST AVENUE
  14. 26 [143]"             PLATTSMOUTH, NE 68048
  15. 27 REM"
  16. 29 [143]"      LIST 31- FOR REST OF PROGRAM
  17. 30 REM(null)
  18. 31 CLR:RESTORE:FL=0:POKE53280,0:POKE53281,0:PRINT"[147]":OPEN1,0
  19. 35 POKE808,234:GOSUB680
  20. 40 PRINT" [181] [181] [223][146] [181] [181]  [146] [181] [181]  [146] [169] [161] [223][146] [169] [161] [223][146] [180][170][223][146]  [170] [167]"
  21. 50 PRINT"   [146]   [146]   [146]  [188]   [146]  [188]  [146]   [185][146]  [146]    [146] [170][170][146][223][223][146]  [180][146][180]"
  22. 60 PRINT"   [146]   [146]   [181][146][181]    [181][146][181]   [146]      [146]    [146] [170][170][146] [223][223][146] [180][146][180]"
  23. 70 PRINT"   [146]   [146]   [146]  [172]   [146]     [146]   [185]  [146]    [146] [170][170][146]  [223][223][146][180][146][180]"
  24. 80 PRINT" [181] [181] [146][169] [181] [181]  [146] [181] [146][161]   [223] [161] [146][169] [223] [161] [146][169] [180] [146]   [223][180][170]"
  25. 90 GOSUB 670:PRINTSPC(17)"  [167][165]  [146]":PRINTSPC(18)" [146]   [146]"
  26. 110 PRINTSPC(18)" [146]   [146]":PRINTSPC(18)" [146]   [146]":PRINTSPC(17)"  [167][165]  [146]"
  27. 140 GOSUB 670:M$="       THIS PROGRAM IS CLASSIFIED":GOSUB820:GOSUB660
  28. 142 PRINTSPC(14)"[164][164][164][164][164][164][164][164][164][164][164][164]
  29. 145 [153][166]14)" TOP SECRET WAIT
  30. 150 M$="BY THE STRATEGIC DEFENSE INITIATIVE ACT":GOSUB660:GOSUB820
  31. 160 GOSUB 680:PRINT"[147]":GOSUB 680
  32. 170 REM COMLINK GRID
  33. 180 GOSUB 560:GOSUB680:M$="TELEPHONE LINK NOT AVAILABLE.":GOSUB820:GOSUB560
  34. 200 M$="STAGE I COMLINK VIA POWER GRID COMPLETE.":GOSUB 820:GOSUB650
  35. 220 GOSUB560:M$="STAGE II COMLINK COMPLETE.":GOSUB 820:GOSUB 680
  36. 230 GOSUB560:M$="STAGE III SATELLITE COMLINK COMPLETE.":GOSUB 820
  37. 240 GOSUB560:GOSUB 680:GOSUB680
  38. 250 M$="[147]DIALING....(916)294-1110":GOSUB 670:GOSUB820:GOSUB670
  39. 260 GOSUB 650:PRINT"[145]9";
  40. 270 GOSUB 660:PRINT"1";:GOSUB 650:PRINT"6";:GOSUB 650:PRINT"2";:GOSUB 670
  41. 280 PRINT"9";:GOSUB 660:PRINT"4";:GOSUB 650:PRINT"1";:GOSUB 650:PRINT"1";
  42. 290 GOSUB 650:PRINT"1";:GOSUB 670:PRINT"0":GOSUB 650:GOSUB 670
  43. 300 PRINT"RINGING";:FORRE=1TO6:GOSUB 660:PRINT".";:NEXT
  44. 310 GOSUB 660:PRINT"*":GOSUB 680
  45. 320 GOSUB 560:PRINT"[147]":GOSUB 680:PRINT"ACCESS AUTHORIZATION CODE:";
  46. 330 GOSUB4700:GOSUB670:GOSUB610:GOSUB660
  47. 335 FORC=1TOL:IFMID$(B$,C,1)="A"THENGOTO390
  48. 340 NEXT:PRINT"SUPERSEDED CODE.":GOSUB 660
  49. 350 PRINT"CHECK LISTING FOR TODAY'S CODES.":GOSUB 660:GOSUB 560:GOSUB680
  50. 360 GOSUB 680:GOTO320
  51. 390 GOSUB 670:PRINT"[147]":GOSUB 670
  52. 400 PRINT"[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  53. 410 [153]"ON         DEPARTMENT OF DEFENSE           WAIT
  54. 420 PRINT"[145]  STRATEGIC COMMAND AND CONTROL SYSTEM  [146]
  55. 430 [153]"  USE OF THIS SYSTEM IS RESTRICTED TO
  56. 440 PRINT"       AUTHORIZED MEMBERS OF THE
  57. 450 [153]" DEFENSE JOINT STRATEGIC COMMAND STAFF
  58. 460 PRINT"ENTER STAFF MEMBER CODE:";:GOSUB4700:GOSUB670
  59. 470 GOSUB 610:GOSUB 660:GOSUB 560
  60. 472 FORC=1TOL:IFMID$(B$,C,1)="B"GOTO480
  61. 474 NEXT:PRINT"CODE NOT RECOGNIZED:";:GOSUB670
  62. 476 PRINT"RE-ENTER CODE.":GOSUB560:GOTO400
  63. 480 PRINT"[147]":GOSUB 660:PR=INT(4*RND(0))+1:ONPRGOSUB 780, 790, 800, 810
  64. 490 PRINT""PR$" ACKNOWLEDGED.":PRINT"CODE NAME: AXMAN"
  65. 510 NU$="123456789":GOSUB 560
  66. 520 PRINT"LEVEL   ACCESS:":FORC=1TO10:GOSUB 660:PRINT"[145]";
  67. 530 PRINTMID$(NU$,C,1):NEXT
  68. 540 PRINT"[145] VERIFIED
  69. 550 [141] 660:[141] 560:[137] 1030
  70. 560 [153]"                                        "
  71. 570 S$[178]"STAND BY":[129]RE[178]1[164]15:[153]""[166]30):[129]P[178]1[164]8:[153][202](S$,P,1);
  72. 580 [129]T[178]1[164]50:[130]:[130]
  73. 590 [153]"";[166]30):[129]P[178]1[164]8:[153]" ";:[129]T[178]1[164]50:[130]:[130]:[130]
  74. 600 [153]"":[142]
  75. 610 [153]"                                        ";
  76. 620 A$[178]"AUTHENTICATING":[129]RE[178]1[164]15:[153]"";:[129]P[178]1[164]14:[153][202](A$,P,1);
  77. 630 [129]T[178]1[164]50:[130]:[130]
  78. 640 [153]"";:[129]E[178]1[164]14:[153]" ";:[129]T[178]1[164]50:[130]:[130]:[130]:[153]"":[142]
  79. 650 [129]T[178]0[164]500:[130]:[142]
  80. 660 [129]T[178]0[164]1500:[130]:[142]
  81. 670 [129]T[178]0[164]2000:[130]:[142]
  82. 680 [129]T[178]0[164]8000:[130]:[142]
  83. 690 [141] 680:[129]F[178]0[164]19:[153]"INCOMING MESSAGE ":[129]T[178]0[164]100:[130]
  84. 700 [153]"                ":[129]T[178]0[164]100:[130]:[130]:[141] 660:[153]"LOAD":[142]
  85. 710 [139]FL[178]1[137]4590
  86. 711 FL[178]1:[153]"LOAD"
  87. 720 [141]660:[141]690:[141]660
  88. 730 [135]A$:[139]A$[178]"END"[167] 770
  89. 740 [139]A$[178]"FINISHED"[167][141]680:[141]660:[137] 1030
  90. 750 L[178][195](A$):[129]PR[178]1[164]L:[153][202](A$,PR,1);:[129]DE[178]1[164]50:[130]:[130]:[153]
  91. 760 [137] 730
  92. 770 [137] 720:[141] 680:[141] 680:[137] 720
  93. 780 PR$[178]"ADMIRAL POINDEXTER":[142]
  94. 790 PR$[178]"SECRETARY SCHULTZ":[142]
  95. 800 PR$[178]"GEN WHITESIDE":[142]
  96. 810 PR$[178]"SENATOR INOUYE":[142]
  97. 820 [143] MESSAGE PRINT ROUTINE
  98. 830 L[178][195](M$):[129]A[178]1[164]L:[153][202](M$,A,1);:[129]T[178]1[164]50:[130]:[130]:[153]:[142]
  99. 1030 [160]1:[159]1,0
  100. 1035 [153]"LOADTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
  101. 1040 [153]"ON          DEPARTMENT OF DEFENSE         "
  102. 1050 [153]"ON     JSCS COMMAND AND CONTROL SYSTEM    "
  103. 1060 [153]"1> CURRENT LAND-BASED ICBM STATUS
  104. 1070 PRINT"2> CURRENT SEA-BASED MISSILE STATUS
  105. 1080 [153]"3> CURRENT ABM STATUS
  106. 1090 PRINT"4> CURRENT ABNCP LOCATION
  107. 1100 [153]"5> COMMAND COMMUNICATIONS NET
  108. 1110 PRINT"6> D.A.N.T.E. SYSTEM
  109. 1120 [153]"> ";
  110. 1121 [161]S$:[139]S$[179][177]""[167]1121
  111. 1122 [153]"SPC(CMD";:[132]1,S$:
  112. 1130 S[178][197](S$):[139]S[179]1[176]S[177]6[167][153]"ONONON":[137] 1120
  113. 1140 [145]S[137] 4240,4450, 4600, 4050, 710, 1170
  114. 1170 [153]"LOADDEFENSEAUTOMATEDNUCLEARTARGETINGELEMENT":[141] 670
  115. 1171 M$[178]"GREETINGS: AXMAN":[141]820:[141]650
  116. 1172 [139]FL[178]1[137]1199
  117. 1173 [153]">";:[141]4700:[141]610:[141]650:[153]
  118. 1174 [129]C[178]1[164]4:[139][202](B$,C,1)[178]"M"[167]1030
  119. 1175 [130]
  120. 1176 [141]660:[153]"INVALID ACTION CODE.":[141]670:[153]"LOAD":[137]1173
  121. 1198 [153]"ONON":[137]1173
  122. 1199 M$[178]"THE CURRENT GLOBAL SITUATUION REQUIRES":[141]820
  123. 1200 M$[178]"THAT THE U.S. ENTER STATUS DEFCON (1-5)":[141]820:M$[178]"IMMEDIATELY."
  124. 1202 [141]820:M$[178]"PLEASE ENTER DEFCON ACTION CODE.":[141]820
  125. 1210 [153]"DEFCON AUTHORIZATION CODE:";:[141]4700:[141]670
  126. 1220 [153]"                                        "
  127. 1230 [141] 610:[153]
  128. 1235 [153]"CODE VERIFIED.":[141]660:[141]4760:[153]"LOAD":[141]660
  129. 1240 [153]"LOADMESSAGE COMPOSE:":
  130. 1250 M$[178]"TO: ALL STATIONS":[141]670:[141] 820:M$[178]"FROM: DANTE"
  131. 1260 [141]820:M$[178]"SUBJECT: POWER TRANSFER":[141] 820
  132. 1270 M$[178]"98352676 (C)":[141] 820
  133. 1280 M$[178]"AXMAN HAS AUTHORIZED TRANSFER":[141] 820
  134. 1290 M$[178]"OF DEFENSE CONTROL TO ME.":[141] 820
  135. 1300 M$[178]"DISREGARD ALL FURTHER MESSAGES FROM":[141] 820
  136. 1310 M$[178]"ANY OTHER AGENCIES.":[141] 820
  137. 1320 M$[178]"AUTHENTICATION:>GREEN 4<>GQ<>R<":[141] 820:[141] 680:[141] 2620
  138. 1330 [141] 670:[153]"LOADMESSAGE COMPOSE:"
  139. 1340 M$[178]"TO: ALL STATIONS":[141]670:[141] 820:M$[178]"FROM: DANTE"
  140. 1350 [141]820:M$[178]"SUBJECT: STATUS CONFIRMATION":[141] 820:M$[178]"29382676 (C)"
  141. 1360 [141]820:M$[178]"REQUEST IMMEDIATE REPORT OF CURRENT":[141] 820:[153]"ON"
  142. 1370 M$[178]"STATUS OF YOUR FACILITIES.":[141] 820:[141] 2620:[141] 670
  143. 1380 [141] 690:[141] 650:M$[178]"TO: DANTE":[141] 820
  144. 1390 M$[178]"FROM: ADGJ":[141] 820:M$[178]"SUBJECT: STATUS":[141] 820:M$[178]"23985647 (C)"
  145. 1400 [141] 820:M$[178]"ALL ALPHA SITES READY.":[141] 820:[141] 670
  146. 1410 [141] 690:[141] 650:M$[178]"TO: DANTE":[141] 820:M$[178]"FROM: SFHK"
  147. 1420 [141]820:M$[178]"SUBJECT: STATUS":[141] 820:M$[178]"48473659 (C)":[141] 820
  148. 1430 M$[178]"ALL BRAVO SITES READY.":[141] 820:[141] 670:[141] 690
  149. 1440 [141] 660:M$[178]"TO: DANTE":[141] 820:M$[178]"FROM: QETU":[141] 820
  150. 1450 M$[178]"SUBJECT: STATUS":[141] 820:M$[178]"47619903 (C)":[141] 820:
  151. 1460 M$[178]"UNIT CHARLIE-34 CONDITION RED.":[141] 820
  152. 1470 M$[178]"ALL OTHER SITES READY.":[141] 820:[141] 670:[141] 690
  153. 1480 M$[178]"TO: DANTE":[141] 820:M$[178]"FROM: WRYI":[141] 820
  154. 1490 M$[178]"SUBJECT: STATUS":[141] 820:M$[178]"86641249 (C)":[141] 820
  155. 1500 M$[178]"UNIT DELTA-02 CONDITION YELLOW.":[141] 820
  156. 1510 M$[178]"ALL OTHER SITES GREEN.":[141] 820:[141] 680
  157. 1520 [153]"LOADMESSAGE COMPOSE:":[141] 670
  158. 1530 M$[178]"TO: ADGJ/SFHK/QETU/WRYI":[141] 820:M$[178]"FROM: DANTE"
  159. 1540 [141]820:M$[178]"SUBJECT: RED-50":[141] 820:M$[178]"92837654 (C)":[141]820
  160. 1550 M$[178]"STAND BY TO INITIATE SEQUENCE RED-50.":[141] 820
  161. 1560 M$[178]"AUTHENTICATE >CA< BOOK >43<":[141] 820:[141] 670:[141] 2620:[141]680
  162. 1570 [141] 690:[141] 660:M$[178]"TO: DANTE":[141] 820:M$[178]"FROM: SFHK"
  163. 1580 [141] 820:M$[178]"SUBJECT: RED-50":[141] 820:M$[178]"85749387 (C)":[141] 820
  164. 1590 M$[178]">CA< AUTHENTICATES >T<":[141] 820:M$[178]"STANDING BY.":[141] 820:
  165. 1600 [141] 680:[141] 690:M$[178]"TO: DANTE":[141] 820:M$[178]"FROM: WRYI"
  166. 1610 [141]820:M$[178]"SUBJECT: RED-50":[141] 820:M$[178]"74859323 (C)":[141] 820
  167. 1620 M$[178]">CA< AUTHENTICATES >T<":[141] 820:M$[178]"THIS STATION READY."
  168. 1630 [141] 820:[141] 670:[141] 690:[141] 680:M$[178]"TO: DANTE"
  169. 1640 [141] 820:M$[178]"FROM: QETU":[141] 820:M$[178]"SUBJECT: RED-50"
  170. 1650 [141] 820:M$[178]"57463756 (C)":[141] 820:M$[178]">CA< AUTHENTICATES >T<"
  171. 1660 [141] 820:M$[178]"STANDING BY.":[141] 820:[141] 680:[141] 690:[141] 660
  172. 1670 M$[178]"TO: DANTE":[141] 820:M$[178]"FROM: ADGJ":[141] 820
  173. 1680 M$[178]"SUBJECT: RED-50":[141]820:M$[178]"23452567 (C)":[141] 820
  174. 1690 M$[178]">CA< AUTHENTICATES >T<.":[141]820:M$[178]"STANDING BY FOR YOUR ORDER."
  175. 1692 [141]820:[141]680:[141]680:[153]"LOADMESSAGE COMPOSE:"
  176. 1700 M$[178]"TO: ADGJ/SFHK/QETU/WRYI":[141] 820:M$[178]"FROM: DANTE":[141] 820
  177. 1710 M$[178]"SUBJECT: RED-50":[141] 820:M$[178]"75847366 (C)":[141] 820
  178. 1720 M$[178]"ENTERING DIRECT CONTROL MODE.":[141] 820
  179. 1730 M$[178]"SET CONTROL F-37 TO 'D' AND STAND BY.":[141] 820:[141] 680:[141]2620
  180. 1735 :[141]660
  181. 1740 [151]53281,2:[129]T[178]1[164]100:[130]:[151]53280,1:[129]T[178]1[164]100:[130]:[151]53281,1
  182. 1750 [129]T[178]1[164]100:[130]:[151] 53280,2
  183. 1752 [129]T[178]1[164]100:[130]:[151] 53281,2
  184. 1754 [129]T[178]1[164]100:[130]:[151] 53280,0
  185. 1756 [129]T[178]1[164]100:[130]:[151] 53281,0
  186. 1758 [153]"LOAD           TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
  187. 1760 [153]"            SEQUENCE RED-50 "
  188. 1770 [141]680:[153]"CYCLE OPEN SILO:"
  189. 1780 [141] 670:[153]"ONALPHA";:[129]L[178]1[164]50:[153]L;:[141] 650
  190. 1790 [139]L[179]10[167][153]"CMDCMDCMD";:[130]
  191. 1800 [139]L[177]9[167][153]"CMDCMDCMDCMD";:[130]
  192. 1810 [141] 670
  193. 1820 [153]:[153]"ONBRAVO  CMD";:[129]L[178]1[164]50:[153]L;:[141] 650
  194. 1830 [139]L[179]10[167][153]"CMDCMDCMD";:[130]
  195. 1840 [139]L[177]9[167][153]"CMDCMDCMDCMD";:[130]
  196. 1850 [141] 670
  197. 1860 [153]:[153]"ONCHARLIE ";:[129]L[178]1[164]50:[139]L[178]34[167][141] 670
  198. 1870 [153]L;:[141] 650
  199. 1880 [139]L[179]10[167][153]"CMDCMDCMD";:[130]
  200. 1890 [139]L[177]9[167][153]"CMDCMDCMDCMD";:[130]
  201. 1900 [141] 670:[153]
  202. 1910 [153]"ONDELTA      CMDCMDCMDCMDCMDCMD ";:[129]L[178]1[164]50:[139] L[178]2[167][141] 670
  203. 1920 [153]L;:[141] 650
  204. 1930 [139]L[179]10[167][153]"CMDCMDCMD";:[130]
  205. 1940 [139]L[177]9[167][153]"CMDCMDCMDCMD";:[130]:[153]
  206. 1941 [137]1950
  207. 1946 [137]3150
  208. 1950 [141]680:[153]"ONALL SILOS OPEN
  209. 1955 GOSUB680:PRINT"SEQUENCE START:";
  210. 1960 GOSUB 680:PRINT" ALPHA";:FORL=1TO50:PRINTL;:GOSUB 650
  211. 1970 IFL<10THENPRINT"[157][157][157]";:NEXT
  212. 1980 IFL>9THENPRINT"[157][157][157][157]";:NEXT
  213. 1990 GOSUB 670
  214. 2000 PRINT:PRINT"[145]BRAVO  [157]";:FORL=1TO50:PRINTL;:GOSUB 650
  215. 2010 IFL<10THENPRINT"[157][157][157]";:NEXT
  216. 2020 IFL>9THENPRINT"[157][157][157][157]";:NEXT
  217. 2030 GOSUB 670
  218. 2040 PRINT:PRINT"[145]CHARLIE ";:FORL=1TO50:IFL=34THENGOSUB 670
  219. 2050 PRINTL;:GOSUB 650
  220. 2060 IFL<10THENPRINT"[157][157][157]";:NEXT
  221. 2070 IFL>9THENPRINT"[157][157][157][157]";:NEXT
  222. 2080 GOSUB 670:PRINT
  223. 2090 PRINT"[145]DELTA      [157][157][157][157][157][157] ";:FORL=1TO50:IF L=2THENGOSUB 670
  224. 2100 PRINTL;:GOSUB 650
  225. 2110 IFL<10THENPRINT"[157][157][157]";:NEXT
  226. 2120 IFL>9THENPRINT"[157][157][157][157]";:NEXT:PRINT
  227. 2130 GOSUB 680:PRINT"[145]LAUNCH SEQUENCE STARTED
  228. 2140 [141]680:[153]"LOADTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
  229. 2142 [153]"ON   MISSILE TARGETING ROUTINE ENABLED    WAIT
  230. 2145 GOSUB680:PRINT"   TARGETING":GOSUB4000
  231. 2150 GOSUB 670:PRINT"[145]ALPHA";:FORL=1TO50:PRINTL;:GOSUB 650
  232. 2160 GOSUB 2640
  233. 2180 PRINT"[145][157][157][157]";:NEXT
  234. 2182 PRINT"COMPLETE":PRINT
  235. 2185 GOSUB660:PRINT"   TARGETING":GOSUB4000
  236. 2190 GOSUB 670:PRINT"[145]BRAVO";:FORL=1TO50:PRINTL;:GOSUB 650
  237. 2200 GOSUB 2640
  238. 2220 PRINT"[145][157][157][157]";:NEXT
  239. 2222 PRINT"COMPLETE":PRINT
  240. 2225 GOSUB660:PRINT"   TARGETING":GOSUB4000
  241. 2230 GOSUB 670:PRINT"[145]CHARLIE";:FORL=1TO50:PRINTL;:GOSUB 650
  242. 2240 GOSUB 2640
  243. 2260 PRINT"[145][157][157][157]";:NEXT
  244. 2262 PRINT"COMPLETE":PRINT
  245. 2265 GOSUB660:PRINT"   TARGETING":GOSUB4000
  246. 2270 GOSUB 670:PRINT"[145]DELTA";:FORL=1TO50:PRINTL;:GOSUB 650
  247. 2280 GOSUB 2640
  248. 2300 PRINT"[145][157][157][157]";:NEXT
  249. 2302 PRINT"COMPLETE":PRINT
  250. 2310 GOSUB 680:M$="[147]   ALL MISSILES TARGETED AND READY.":GOSUB 820:GOSUB 560
  251. 2320 GOSUB 680:PRINT"MINUTES TO LAUNCH:  5 : 00":GOSUB660
  252. 2321 FORM=4TO0STEP-1:FORS=59TO0STEP-1:S$=STR$(S):
  253. 2323 IFS=9THENS$=" 09"
  254. 2325 IFS=8THENS$=" 08"
  255. 2327 IFS=7THENS$=" 07"
  256. 2329 IFS=6THENS$=" 06"
  257. 2330 IFS=5THENS$=" 05"
  258. 2332 IFS=4THENS$=" 04"
  259. 2334 IFS=3THENS$=" 03"
  260. 2336 IFS=2THENS$=" 02"
  261. 2337 IFS=1THENS$=" 01"
  262. 2338 IFS<1THENS$=" 00"
  263. 2339 FORT=1TO880:NEXT:PRINT"[145]  "
  264. 2340 PRINT"[145]"M":"S$:NEXT:NEXT
  265. 2350 GOSUB 680:GOSUB 680:PRINT"[147]":GOSUB 560:GOSUB 680:GOSUB 680
  266. 2360 M$="LAUNCH FAILURES: CHARLIE-34 : DELTA-02":GOSUB 820:GOSUB 670
  267. 2370 GOSUB 560
  268. 2380 GOSUB 680:M$="ALL MISSILES ON COURSE.":GOSUB 820:GOSUB 560:GOSUB 680
  269. 2390 GOSUB 680:M$="SOVIET ABM LAUNCH DETECTED.":GOSUB 820:GOSUB 670
  270. 2392 M$="[147]SOVIET ICBM LAUNCHES DETECTED.":GOSUB820:GOSUB680:GOSUB680
  271. 2394 M$="EXTRAPOLATING COURSES AND TARGETS.":GOSUB820:GOSUB660
  272. 2396 M$="[147]LAUNCHES FROM SERHEGRAD TARGETED ON:":GOSUB820:GOSUB650
  273. 2398 M$="CHICAGO[157][157][157][157][157][157][157]DETROIT[157][157][157][157][157][157][157]LANSING[157][157][157][157][157][157][157]PITTSBURG"
  274. 2400 :GOSUB820:GOSUB680:M$="LAUNCHES FROM KIEL TARGETED ON:":GOSUB820:GOSUB650
  275. 2401 M$="BOSTON[157][157][157][157][157][157]NEW YORK[157][157][157][157][157][157][157][157]WASHINGTON[157][157][157][157][157][157][157][157][157][157]ATLANTA"
  276. 2402 GOSUB820:GOSUB680
  277. 2403 M$="LAUNCHES FROM DEIBENT TARGETED ON:":GOSUB820:GOSUB650
  278. 2404 M$="MOBILE[157][157][157][157][157][157]FT LAUDERDALE[157][157][157][157][157][157][157][157][157][157][157][157][157]MIAMI[157][157][157][157][157]DALLAS"
  279. 2405 GOSUB820:GOSUB680:M$="LAUNCHES FROM SARANEVA TARGETED ON:":GOSUB820
  280. 2406 GOSUB650:M$="AUSTIN[157][157][157][157][157][157]OKLAHOMA CITY[157][157][157][157][157][157][157][157][157][157][157][157][157]LITTLE ROCK"
  281. 2407 GOSUB820:M$="MEMPHIS[157][157][157][157][157][157][157]ST LOUIS[157][157][157][157][157][157][157][157]MINNEAPOLIS":GOSUB820
  282. 2408 M$="DES MOINES[157][157][157][157][157][157][157][157][157][157]KANSAS CITY[157][157][157][157][157][157][157][157][157][157][157]OMAHA":GOSUB820:GOSUB680
  283. 2409 M$="LAUNCHES FROM ARAKENT TARGETED ON:":GOSUB820:GOSUB650
  284. 2410 M$="LINCOLN[157][157][157][157][157][157][157]DENVER[157][157][157][157][157][157]HOUSTON[157][157][157][157][157][157][157]ALBEQUERQUE":GOSUB820
  285. 2411 GOSUB680:M$="[147]NO FURTHER LAUNCHES DETECTED.":GOSUB820:GOSUB660
  286. 2412 M$="ANTI-BALLISTIC MISSILE DEFENSE TARGETING":GOSUB820
  287. 2413 M$="[145]SYSTEM ALERTED.":GOSUB820:GOSUB680:GOSUB680
  288. 2414 M$="ABMS TARGETED AND LAUNCHED.":GOSUB820:GOSUB670
  289. 2445 GOSUB 680:GOSUB 680:M$="[147]ICBM TRACKING SIGNALS LOST FROM:":GOSUB 820
  290. 2446 M$="DELTA-14":GOSUB 820
  291. 2447 M$="BRAVO-23":GOSUB 820
  292. 2448 M$="DELTA-26":GOSUB 820
  293. 2449 M$="DELTA-01":GOSUB 820
  294. 2450 M$="ALPHA-47":GOSUB 820
  295. 2460 M$="BRAVO-18":GOSUB 820
  296. 2470 M$="BRAVO-19":GOSUB 820
  297. 2480 M$="BRAVO-20":GOSUB 820
  298. 2490 M$="CHARLIE-10":GOSUB 820
  299. 2500 M$="DELTA-44":GOSUB 820
  300. 2510 M$="ALPHA-45":GOSUB 820
  301. 2520 M$="ALPHA-02":GOSUB 820
  302. 2530 M$="CHARLIE-19":GOSUB 820
  303. 2540 GOSUB 670:GOSUB 560:GOSUB 680:GOSUB 680:PRINT"[147]":GOSUB 680:GOSUB 680
  304. 2550 M$="NUCLEAR EXPLOSIONS IN U.S.S.R. DETECTED.":GOSUB 820
  305. 2560 GOSUB 560
  306. 2570 FORD=1TO6:GOSUB 680:NEXT:M$="SATELLITE SURVEY SHOWS 95% EFFECTIVE"
  307. 2580 GOSUB 820:M$="WARHEAD DETONATION.":GOSUB 820
  308. 2590 GOSUB 560
  309. 2600 FORT=1TO10:GOSUB 680:NEXT:M$=""
  310. 2605 GOSUB820:M$="ADC REPORTS ALL SOVIET ICBMS INTERCEPTED"
  311. 2610 GOSUB 820:GOSUB 560:GOSUB 680:GOSUB 560:PRINT""
  312. 2615 M$="       SEQUENCE RED-50 COMPLETE. ":GOSUB820:GOSUB680:GOSUB680
  313. 2617 M$="         SIMULATION TERMINATED.[144]":GOSUB820:POKE808,237:END
  314. 2620 PRINT"MESSAGE TRANSMIT:":FORT=1TO880:PRINT" ";:FORI=1TO10:NEXT:NEXT
  315. 2630 PRINT"                  ":RETURN
  316. 2640 PRINT"":PRINT"";:FORI=1TO8:M=INT(10*RND(1)):PRINTM"[157]";:NEXT
  317. 2650 PRINT" -";:FORI=1TO8:M=INT(10*RND(1)):PRINTM"[157]";:NEXT:PRINT"[145][145]":RETURN
  318. 2660 DATA"TO: FHRYU","FROM: CMXYU"
  319. 2670 DATA"SUBJECT: RETIREMENT CEREMONY",94738567 (C),""
  320. 2680 DATAPARADE AND CEREMONY FOR GENERAL,DETWEILER WILL BEGIN AT 1600.
  321. 2690 DATA"YOUR RESERVATION CONFIRMED. ARRIVAL AT",1430 VIA FLT 253.,END
  322. 2700 DATA"TO: ADGJ/SFHK/QETU/WRYI","FROM: LJGDE","SUBJECT: MIDEAST CONDITION"
  323. 2710 DATA18239422 (C),"INTELLIGENCE REPORTS ISLAMIC REPUBLIC"
  324. 2720 DATAOF IRAN HAS INITIATED HOSTILITIES
  325. 2730 DATAAGAINST PROTECTORATE OF AFGHANISTAN.
  326. 2740 DATA"U.S.S.R. IS REPORTED TO BE ASSEMBLING"
  327. 2750 DATAGROUND FORCES NEAR TASHKENT.,END
  328. 2760 DATA"TO: LTOER","FROM: ADGJ","SUBJECT: TASHKENT",98574934 (C),""
  329. 2770 DATASAUDI AWACS REPORTS FLIGHT OF SIX
  330. 2780 DATAMIG-29S DEPARTING LASKEVA.,"HOLDING COURSE 178 TOWARDS TEHRAN.",END
  331. 2790 DATA"TO: ADGJ/SFHK/QETU"
  332. 2800 DATA"FROM: SAFD","SUBJECT:MIDEAST UPDATE",34678744 (C)
  333. 2810 DATA"REPORTS RECEIVED THAT ABM/BMEW RADAR
  334. 2820 [131]INSTALLATION AT SARY SHAGAN HAS BEEN
  335. 2830 [131]DESTROYED. TWO MIG-29S SHOT DOWN OVER,AFGHANI-SOVIET BORDER.
  336. 2840 [131]"SOVIET GROUND FORCES NEARING BORDER AT",MODENSKA.,END
  337. 2850 [131]"TO:LGHJN","FROM:JDRNE","SUBJECT: ALFA RESPONSE TEAM",93746592 (C),""
  338. 2860 [131]101ST AIRBORNE COMPLETED TNG AT FT BRAGG,"ONTHIS DATE."
  339. 2870 [131]"PREPARING FOR DEPARTURE TO IRAKLION GR.",END
  340. 2880 [131]"TO: REPSAU","FROM: PENTA","SUBJECT: AFGHANISTAN",94837567 (C),""
  341. 2890 [131]"INTELLIGENCE REPORTS IRANIAN RAIDERS MAY"
  342. 2900 [131]"ONBE AIDED BY AFGHANI RESISTANCE FIGHTERS."
  343. 2910 [131]"",SOVIET AIRCRAFT DIVERTED TO MODENSKA.,END,
  344. 2920 [131]"TO: ADGJ","FROM: BMEWT","SUBJECT: DV",67985679 (C)
  345. 2930 [131]"",SECRETARY SCHULTZ WILL VISIT YOUR,FACILITY ON MONDAY.
  346. 2940 [131]"FLIGHT ARRIVES AT 1630 HOURS."
  347. 2950 [131]"YOU SHOULD BE PREPARED TO BRIEF ON"
  348. 2960 [131]NEW CONSTRUCTION AND DETAILS OF R-NET
  349. 2970 [131]INSTALLATION.,END
  350. 2980 [131]"TO: ADGJ","FROM: QETU","SUBJECT: REQ-33","38763298 (C)"
  351. 2990 [131]"SHIPMENT OF YOUR REQUISITION 33",COMPLETE. DELIVERY IN TWO DAYS.
  352. 3000 [131]"ITEM H-432 WAS SUBSTITUTED FOR ITEM"
  353. 3010 [131]J-335.,"REF: T.O.332-90, PAGE 10, PARAGRAPH 4.",END
  354. 3020 [131]"TO: DIST-F","FROM: NEBOM","SUBJECT: QUARTERS AVAILABILITY"
  355. 3030 [131]39485763 (C),"BE ADVISED THAT TRANSIENT QUARTERS AT"
  356. 3040 [131]THIS POST WILL BE EXTREMELY LIMITED TO,NON-EXISTANT FOR 30 DAYS DUE TO
  357. 3050 [131]DEMONSTRATION OF NEW UPPGH-35 AND THE,COMMANDER'S CONFERENCE.,END
  358. 3060 [131]"TO: SFHK","FROM: WRYI","SUBJECT: U.A.E.",92384756 (C)
  359. 3070 [131]"REQUEST RCD FROM UNITED ARAB EMIRATES"
  360. 3080 [131]FOR NAVAL ASSISTANCE IN CLEARING MINE,FROM PORT AT JAKIRA.,""
  361. 3100 [131]I HAVE DIRECTED MINESWEEPER 'USS,FREEDOM' FOR THIS DUTY.,END
  362. 3110 [131]"TO: ALL STATIONS","FROM: PENTA","SUBJECT: DEFCON ALERT",94857632 (C)
  363. 3120 [131]"ALL STATIONS REPORT VIA D.A.N.T.E.",SYSTEM IMMEDIATELY.,""
  364. 3130 [131]COMMUNICATIONS TRAFFIC ON THIS NET IS,SUSPENDED UNTIL FURTHER NOTICE.
  365. 3140 [131]FINISHED
  366. 3149 [137]4000
  367. 3150 [153][199](147):[151]53280,6:[151]53281,6:[153][199](5)
  368. 3152 [153][199](87)[199](82)[199](73)[199](84)[199](84)[199](69)[199](78)[199](32);
  369. 3254 [153][199](66)[199](89)[199](32)[199](83)[199](84)[199](69)[199](86)[199](69);
  370. 3256 [153][199](78)[199](32)[199](83)[199](84)[199](65)[199](78)[199](70)[199](73);
  371. 3258 [153][199](69)[199](76)[199](68)[199](13)[199](70)[199](79)[199](82)[199](32);
  372. 3260 [153][199](81)[199](85)[199](65)[199](78)[199](84)[199](85)[199](77)[199](76);
  373. 3262 [153][199](73)[199](78)[199](75)[199](32)[199](77)[199](69)[199](77)[199](66);
  374. 3264 [153][199](69)[199](82)[199](83)[199](13)[199](40)[199](67)[199](41)[199](49);
  375. 3266 [153][199](57)[199](56)[199](55)[199](32)[199](42)[199](78)[199](79)[199](84);
  376. 3268 [153][199](32)[199](70)[199](79)[199](82)[199](32)[199](83)[199](65)[199](76);
  377. 3270 [153][199](69)[199](42)[199](31):[128]
  378. 4000 [153]"ONON(null)TANTANTANTANTANTANTANTANTANTANRIGHT$
  379. 4010 PRINT"[194][194]
  380. 4020 [153]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTAN(null)MID$TANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  381. 4030 PRINT"[145][194][194]
  382. 4040 [153]"ONMID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)ONONONON":[142]
  383. 4050 [143] *** ABNCP ROUTINE ***
  384. 4052 [139]FL[178]1[167][137]4594
  385. 4055 [153]"LOAD":[141]660:[141]560:
  386. 4060 [141]660:[153]"LOADTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
  387. 4065 [153]"ON CURRENT AIRBORNE COMMAND POST LOCATION "
  388. 4070 [153]"CALL SIGN:":[153]"TAIL NUMBER:":[153]"SENIOR OFFICER:"
  389. 4080 [153]"LONGITUDE:":[153]"LATITUDE:":[153]"ALTITUDE:":[153]"COURSE:"
  390. 4085 [153]"LAST REPORT:
  391. 4090 PRINT"":GOSUB650
  392. 4100 M$="NIGHTWING-34":GOSUB820
  393. 4110 M$="AF359843":GOSUB820
  394. 4120 M$="LT GEN ABRAMS":GOSUB820
  395. 4130 M$="93 DEGREES 33 MINUTES WEST":GOSUB820
  396. 4140 M$="32 DEGREES 12 MINUTES NORTH":GOSUB820
  397. 4150 M$="68,25O FT":GOSUB820
  398. 4160 M$="323 DEGREES MAGNETIC":GOSUB820
  399. 4170 M$="36478245 (Z)":GOSUB820
  400. 4180 GETA$:IFA$=""THEN4180
  401. 4190 GOTO1030
  402. 4200 PRINT"                                        "
  403. 4210 PR$="ACCESSING INFORMATION":CL$="                      ":FORRE=1TO13
  404. 4220 FORL=1TO23:PRINTMID$(PR$,L,1);:FORT=1TO10:NEXT:NEXT
  405. 4230 FORL=1TO23:PRINTMID$(CL$,L,1);:FORT=1TO10:NEXT:NEXT:NEXT:RETURN
  406. 4240 REM *** LAND-BASED ICBM STATUS ***
  407. 4245 IFFL=1THENGOTO4594
  408. 4250 PRINT"[147]":GOSUB660:GOSUB560:GOSUB650:GOSUB4210:GOSUB660:GOSUB560:GOSUB650
  409. 4360 PRINT"[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  410. 4365 PRINT"[145]     CURRENT LAND-BASED ICBM STATUS     [146]"
  411. 4370 M$="ALL MINUTEMAN CENTERS REPORT EXCELLENT":GOSUB820
  412. 4380 M$="CONDITION AND PREPARATION.":GOSUB820
  413. 4390 M$="CHARLIE STATION REPORTS #34 CONDITION":GOSUB820
  414. 4400 M$="RED DUE TO FUEL LEAK.":GOSUB820
  415. 4410 M$="DELTA STATION REPORTS #02 YELLOW DUE TO":GOSUB820
  416. 4420 M$="MAINTENANCE IN PROGRESS.":GOSUB820
  417. 4425 M$="ICBM STATUS IS 99% READY.":GOSUB820
  418. 4430 GETA$:IFA$=""THEN4430
  419. 4440 GOTO1030
  420. 4450 REM *** SEA-BASED ICBM STATUS ***
  421. 4455 IFFL=1THENGOTO4594
  422. 4460 PRINT"[147]":GOSUB660:GOSUB560:GOSUB650:GOSUB4210:GOSUB660:GOSUB560:GOSUB650
  423. 4470 PRINT"[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  424. 4475 PRINT"[145]    CURRENT SEA-BASED MISSILE STATUS    [146]"
  425. 4480 GOSUB660:M$="ATLANTIC FLEET REPORTS ALL TRITON CLASS":GOSUB820
  426. 4490 M$="MISSILE SUBS CODE GREEN.":GOSUB820:GOSUB670
  427. 4500 M$="PACIFIC FLEET REPORTS ALL TRITON CLASS ":GOSUB820
  428. 4510 M$="MISSILE SUBS CODE GREEN WITH THE USS":GOSUB820
  429. 4520 M$="SPEARFISH NOT REPORTING DUE TO OPER-":GOSUB820
  430. 4530 M$="ATIONS UNDER POLAR ICE.":GOSUB820:GOSUB670
  431. 4540 M$="MEDITERRANIAN AND INDIAN OCEAN FLEETS":GOSUB820
  432. 4550 M$="REPORT ALL TRITON CLASS MISSILE SUBS":GOSUB820
  433. 4560 M$="CONDITION GREEN.":GOSUB820
  434. 4570 GETA$:IFA$=""THEN4570
  435. 4580 GOTO1030
  436. 4590 REM TARGET
  437. 4594 REM TARGET
  438. 4595 PRINT"[147]":GOSUB680:M$="THE JSCS COMMUNICATIONS NET IS CLOSED":GOSUB820
  439. 4596 M$="TO TRAFFIC DUE TO NATIONAL EMERGENCY.":GOSUB820
  440. 4597 M$="GO TO D.A.N.T.E. SYSTEM FOR CONFERENCE.":GOSUB820
  441. 4598 GETA$:IFA$=""THEN4598
  442. 4599 GOTO1030
  443. 4600 REM * ABM STATUS SEQUENCE"
  444. 4605 [139]FL[178]1[167][137]4594
  445. 4610 [153]"LOAD":[141]660:[141]560:[141]650:[141]4210:[141]660:[141]560:[141]650
  446. 4620 [153]"LOADTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
  447. 4630 [153]"ON  CURRENT ANTI-BALLISTIC MISSILE STATUS WAIT"
  448. 4640 [141]660:M$[178]"GERMANY ABM BASES REPORT 97% ABLE.":[141]820:[141]670
  449. 4650 M$[178]"NORWAY ABM SITES REPORT 94% ABLE.":[141]820:[141]670
  450. 4660 M$[178]"ALASKA ABM BASES REPORT 100% ABLE.":[141]820:[141]670
  451. 4670 M$[178]"FLORIDA ABM SITES REPORT 99% ABLE.":[141]820:[141]670
  452. 4680 [161]A$:[139]A$[178]""[167]4680
  453. 4690 [137]1030
  454. 4700 A$[178]"":B$[178]"":C$[178]"TANTANTANTAN":[153]C$"CMDCMDCMDCMD";:
  455. 4705 [161]A$:[139]A$[179][177]""[167]4705
  456. 4710 [161]A$:[139]A$[178][199](13)[167]4710
  457. 4711 [139]A$[178][199](20)[176]A$[178][199](17)[176]A$[178][199](29)[176]A$[178][199](145)[176]A$[178][199](157)[167]4710
  458. 4712 [139]A$[178][199](148)[176]A$[178][199](19)[176]A$[178][199](147)[167]4710
  459. 4716 B$[178]B$[170]A$:A$[178]"":L[178][195](B$)
  460. 4720 [153]B$""[201](C$,(4[171]L));
  461. 4730 [129]T[178]1[164]50:[130]:[153]"WAITCMDCMDCMDCMD"[166]L)[201](C$,(4[171]L))"CMDCMDCMDCMD";
  462. 4740 [129]T[178]1[164]50:[130]:[139]L[178]4[167][142]
  463. 4750 [137]4710
  464. 4760 M$[178]"LOADSEQUENCE RED-50 SELECTED.":[141]820:[141]680
  465. 4770 M$[178]"INTERLOCKS DISABLED.":[141]820:[141]680
  466. 4780 M$[178]"OVERRIDES DISABLED.":[141]820:[141]680
  467. 4790 M$[178]"AUTOMATIC TARGET AND LAUNCH LOCKED IN.":[141]820:[141]680:[142]
  468.